Pre-process : Scale the data
na.omit(bankruptcy_data)
# removing those observation rows with 0 in any of the variables
for (i in 1:64) {
bankruptcy_data <- bankruptcy_data[which(bankruptcy_data[, i] != 0), ]
}
dim(bankruptcy_data)
[1] 10000 65
# scale the covariates for easier comparison of coefficient posteriors
for (i in 1:64) {
bankruptcy_data[i] <- scale(bankruptcy_data[i])
}
dim(bankruptcy_data)
[1] 10000 65
str(bankruptcy_data)
'data.frame': 10000 obs. of 65 variables:
$ Attr1 : num [1:10000, 1] -0.0283 -0.1716 -0.0477 -0.0554 0.1636 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr1"
..- attr(*, "scaled:center")= Named num 0.00795
.. ..- attr(*, "names")= chr "Attr1"
..- attr(*, "scaled:scale")= Named num 1.4
.. ..- attr(*, "names")= chr "Attr1"
$ Attr2 : num [1:10000, 1] -0.0597 -0.03 0.0512 0.0367 -0.0318 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr2"
..- attr(*, "scaled:center")= Named num -0.00714
.. ..- attr(*, "names")= chr "Attr2"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr2"
$ Attr3 : num [1:10000, 1] -0.0362 0.3032 -0.4775 -0.1754 0.6715 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr3"
..- attr(*, "scaled:center")= Named num -0.00354
.. ..- attr(*, "names")= chr "Attr3"
..- attr(*, "scaled:scale")= Named num 1.02
.. ..- attr(*, "names")= chr "Attr3"
$ Attr4 : num [1:10000, 1] -0.0204 -0.0947 -0.2142 -0.1597 -0.0217 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr4"
..- attr(*, "scaled:center")= Named num 0.005
.. ..- attr(*, "names")= chr "Attr4"
..- attr(*, "scaled:scale")= Named num 0.908
.. ..- attr(*, "names")= chr "Attr4"
$ Attr5 : num [1:10000, 1] 0.00867 0.00875 0.00807 0.00872 0.00901 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr5"
..- attr(*, "scaled:center")= Named num -0.00469
.. ..- attr(*, "names")= chr "Attr5"
..- attr(*, "scaled:scale")= Named num 1.39
.. ..- attr(*, "names")= chr "Attr5"
$ Attr6 : num [1:10000, 1] -0.0136 -0.0136 -0.0136 -0.00961 -0.0136 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr6"
..- attr(*, "scaled:center")= Named num 0.00146
.. ..- attr(*, "names")= chr "Attr6"
..- attr(*, "scaled:scale")= Named num 1.29
.. ..- attr(*, "names")= chr "Attr6"
$ Attr7 : num [1:10000, 1] 0.004743 -0.019823 0.001422 0.000966 0.045579 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr7"
..- attr(*, "scaled:center")= Named num -0.00696
.. ..- attr(*, "names")= chr "Attr7"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr7"
$ Attr8 : num [1:10000, 1] 0.5939 0.0617 -0.4372 -0.4435 0.0828 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr8"
..- attr(*, "scaled:center")= Named num 0.00905
.. ..- attr(*, "names")= chr "Attr8"
..- attr(*, "scaled:scale")= Named num 1.06
.. ..- attr(*, "names")= chr "Attr8"
$ Attr9 : num [1:10000, 1] -0.645 0.395 0.225 -0.251 0.356 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr9"
..- attr(*, "scaled:center")= Named num 0.00676
.. ..- attr(*, "names")= chr "Attr9"
..- attr(*, "scaled:scale")= Named num 1.17
.. ..- attr(*, "names")= chr "Attr9"
$ Attr10: num [1:10000, 1] 0.0848 0.0471 -0.056 -0.0659 0.0493 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr10"
..- attr(*, "scaled:center")= Named num 0.00746
.. ..- attr(*, "names")= chr "Attr10"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr10"
$ Attr11: num [1:10000, 1] -0.174 -0.682 0.13 -0.256 0.754 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr11"
..- attr(*, "scaled:center")= Named num -0.00209
.. ..- attr(*, "names")= chr "Attr11"
..- attr(*, "scaled:scale")= Named num 1.22
.. ..- attr(*, "names")= chr "Attr11"
$ Attr12: num [1:10000, 1] -0.031 -0.302 -0.149 -0.143 0.222 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr12"
..- attr(*, "scaled:center")= Named num -0.0065
.. ..- attr(*, "names")= chr "Attr12"
..- attr(*, "scaled:scale")= Named num 0.971
.. ..- attr(*, "names")= chr "Attr12"
$ Attr13: num [1:10000, 1] -0.00846 -0.01186 -0.00972 -0.00859 -0.00523 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr13"
..- attr(*, "scaled:center")= Named num -0.00563
.. ..- attr(*, "names")= chr "Attr13"
..- attr(*, "scaled:scale")= Named num 0.626
.. ..- attr(*, "names")= chr "Attr13"
$ Attr14: num [1:10000, 1] 0.00474 -0.019826 0.00142 0.000963 0.045577 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr14"
..- attr(*, "scaled:center")= Named num -0.00696
.. ..- attr(*, "names")= chr "Attr14"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr14"
$ Attr15: num [1:10000, 1] -0.000257 -0.093636 0.011823 0.041578 -0.013089 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr15"
..- attr(*, "scaled:center")= Named num -0.00499
.. ..- attr(*, "names")= chr "Attr15"
..- attr(*, "scaled:scale")= Named num 1.22
.. ..- attr(*, "names")= chr "Attr15"
$ Attr16: num [1:10000, 1] -0.249 -0.612 -0.374 -0.462 0.745 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr16"
..- attr(*, "scaled:center")= Named num 0.00457
.. ..- attr(*, "names")= chr "Attr16"
..- attr(*, "scaled:scale")= Named num 0.993
.. ..- attr(*, "names")= chr "Attr16"
$ Attr17: num [1:10000, 1] 0.5402 0.0304 -0.4475 -0.3992 0.0506 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr17"
..- attr(*, "scaled:center")= Named num 0.00856
.. ..- attr(*, "names")= chr "Attr17"
..- attr(*, "scaled:scale")= Named num 1.06
.. ..- attr(*, "names")= chr "Attr17"
$ Attr18: num [1:10000, 1] 3.75e-03 -2.07e-02 4.49e-04 -4.84e-06 4.44e-02 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr18"
..- attr(*, "scaled:center")= Named num -0.00765
.. ..- attr(*, "names")= chr "Attr18"
..- attr(*, "scaled:scale")= Named num 1.4
.. ..- attr(*, "names")= chr "Attr18"
$ Attr19: num [1:10000, 1] 0.03004 -0.01983 0.00756 0.0178 0.06443 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr19"
..- attr(*, "scaled:center")= Named num -0.00397
.. ..- attr(*, "names")= chr "Attr19"
..- attr(*, "scaled:scale")= Named num 1.11
.. ..- attr(*, "names")= chr "Attr19"
$ Attr20: num [1:10000, 1] -0.12763 -0.08226 0.01842 0.00183 -0.07246 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr20"
..- attr(*, "scaled:center")= Named num -0.00733
.. ..- attr(*, "names")= chr "Attr20"
..- attr(*, "scaled:scale")= Named num 0.494
.. ..- attr(*, "names")= chr "Attr20"
$ Attr21: num [1:10000, 1] -0.0192 -0.0195 -0.0199 -0.0189 -0.0189 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr21"
..- attr(*, "scaled:center")= Named num 0.0103
.. ..- attr(*, "names")= chr "Attr21"
..- attr(*, "scaled:scale")= Named num 1.4
.. ..- attr(*, "names")= chr "Attr21"
$ Attr22: num [1:10000, 1] -0.3218 -0.7014 0.1268 -0.0685 0.7035 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr22"
..- attr(*, "scaled:center")= Named num -0.00458
.. ..- attr(*, "names")= chr "Attr22"
..- attr(*, "scaled:scale")= Named num 1.24
.. ..- attr(*, "names")= chr "Attr22"
$ Attr23: num [1:10000, 1] 0.0329 -0.0171 0.0104 0.0162 0.057 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr23"
..- attr(*, "scaled:center")= Named num -0.00328
.. ..- attr(*, "names")= chr "Attr23"
..- attr(*, "scaled:scale")= Named num 1.11
.. ..- attr(*, "names")= chr "Attr23"
$ Attr24: num [1:10000, 1] 0.00641 0.05489 0.03831 -0.0241 0.1082 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr24"
..- attr(*, "scaled:center")= Named num -0.0116
.. ..- attr(*, "names")= chr "Attr24"
..- attr(*, "scaled:scale")= Named num 1.1
.. ..- attr(*, "names")= chr "Attr24"
$ Attr25: num [1:10000, 1] 0.0321 0.1966 -0.0889 -0.0827 -0.0987 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr25"
..- attr(*, "scaled:center")= Named num 0.00658
.. ..- attr(*, "names")= chr "Attr25"
..- attr(*, "scaled:scale")= Named num 1.36
.. ..- attr(*, "names")= chr "Attr25"
$ Attr26: num [1:10000, 1] -0.215 -0.606 -0.35 -0.455 0.681 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr26"
..- attr(*, "scaled:center")= Named num 0.00499
.. ..- attr(*, "names")= chr "Attr26"
..- attr(*, "scaled:scale")= Named num 0.985
.. ..- attr(*, "names")= chr "Attr26"
$ Attr27: num [1:10000, 1] -0.0112 -0.012 -0.0112 -0.0112 -0.0106 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr27"
..- attr(*, "scaled:center")= Named num 0.00505
.. ..- attr(*, "names")= chr "Attr27"
..- attr(*, "scaled:scale")= Named num 1.34
.. ..- attr(*, "names")= chr "Attr27"
$ Attr28: num [1:10000, 1] -0.025 -0.0195 -0.0275 -0.0254 -0.0137 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr28"
..- attr(*, "scaled:center")= Named num -0.00324
.. ..- attr(*, "names")= chr "Attr28"
..- attr(*, "scaled:scale")= Named num 0.644
.. ..- attr(*, "names")= chr "Attr28"
$ Attr29: num [1:10000, 1] -0.6279 -1.1622 0.0952 0.2942 -0.499 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr29"
..- attr(*, "scaled:center")= Named num 0.000412
.. ..- attr(*, "names")= chr "Attr29"
..- attr(*, "scaled:scale")= Named num 1.01
.. ..- attr(*, "names")= chr "Attr29"
$ Attr30: num [1:10000, 1] -0.022 -0.0405 -0.0211 0.0616 -0.0471 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr30"
..- attr(*, "scaled:center")= Named num -0.00759
.. ..- attr(*, "names")= chr "Attr30"
..- attr(*, "scaled:scale")= Named num 0.361
.. ..- attr(*, "names")= chr "Attr30"
$ Attr31: num [1:10000, 1] 0.0655 -0.0266 0.0117 0.0137 0.0687 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr31"
..- attr(*, "scaled:center")= Named num -0.00328
.. ..- attr(*, "names")= chr "Attr31"
..- attr(*, "scaled:scale")= Named num 1.06
.. ..- attr(*, "names")= chr "Attr31"
$ Attr32: num [1:10000, 1] -0.0168 -0.0386 -0.0216 0.0319 -0.0357 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr32"
..- attr(*, "scaled:center")= Named num -0.00688
.. ..- attr(*, "names")= chr "Attr32"
..- attr(*, "scaled:scale")= Named num 0.421
.. ..- attr(*, "names")= chr "Attr32"
$ Attr33: num [1:10000, 1] -0.331513 -0.000642 -0.290476 -0.508146 -0.077838 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr33"
..- attr(*, "scaled:center")= Named num 0.0227
.. ..- attr(*, "names")= chr "Attr33"
..- attr(*, "scaled:scale")= Named num 1.18
.. ..- attr(*, "names")= chr "Attr33"
$ Attr34: num [1:10000, 1] -0.1422 1.1073 0.0437 -0.596 0.8007 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr34"
..- attr(*, "scaled:center")= Named num 0.0119
.. ..- attr(*, "names")= chr "Attr34"
..- attr(*, "scaled:scale")= Named num 1.1
.. ..- attr(*, "names")= chr "Attr34"
$ Attr35: num [1:10000, 1] -0.3705 -0.8434 0.6614 -0.0826 0.8662 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr35"
..- attr(*, "scaled:center")= Named num -0.0041
.. ..- attr(*, "names")= chr "Attr35"
..- attr(*, "scaled:scale")= Named num 1.16
.. ..- attr(*, "names")= chr "Attr35"
$ Attr36: num [1:10000, 1] -0.90216 0.16551 -0.00931 -0.98988 0.12483 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr36"
..- attr(*, "scaled:center")= Named num 0.00934
.. ..- attr(*, "names")= chr "Attr36"
..- attr(*, "scaled:scale")= Named num 1.09
.. ..- attr(*, "names")= chr "Attr36"
$ Attr37: num [1:10000, 1] -0.0307 -0.0232 -0.031 -0.031 -0.0278 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr37"
..- attr(*, "scaled:center")= Named num 0.00543
.. ..- attr(*, "names")= chr "Attr37"
..- attr(*, "scaled:scale")= Named num 1.29
.. ..- attr(*, "names")= chr "Attr37"
$ Attr38: num [1:10000, 1] 0.05122 0.00255 -0.02216 -0.0082 0.00866 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr38"
..- attr(*, "scaled:center")= Named num 0.00747
.. ..- attr(*, "names")= chr "Attr38"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr38"
$ Attr39: num [1:10000, 1] -0.0169 -0.0574 0.0768 0.0797 0.0855 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr39"
..- attr(*, "scaled:center")= Named num -0.000878
.. ..- attr(*, "names")= chr "Attr39"
..- attr(*, "scaled:scale")= Named num 0.903
.. ..- attr(*, "names")= chr "Attr39"
$ Attr40: num [1:10000, 1] 0.258 -0.121 -0.205 -0.194 0.028 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr40"
..- attr(*, "scaled:center")= Named num -0.00199
.. ..- attr(*, "names")= chr "Attr40"
..- attr(*, "scaled:scale")= Named num 0.709
.. ..- attr(*, "names")= chr "Attr40"
$ Attr41: num [1:10000, 1] 0.01891 -0.11543 -0.01753 -0.00542 -0.02746 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr41"
..- attr(*, "scaled:center")= Named num -0.00731
.. ..- attr(*, "names")= chr "Attr41"
..- attr(*, "scaled:scale")= Named num 0.00495
.. ..- attr(*, "names")= chr "Attr41"
$ Attr42: num [1:10000, 1] -0.00824 -0.03205 0.02348 0.05639 0.05782 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr42"
..- attr(*, "scaled:center")= Named num -0.00506
.. ..- attr(*, "names")= chr "Attr42"
..- attr(*, "scaled:scale")= Named num 1.08
.. ..- attr(*, "names")= chr "Attr42"
$ Attr43: num [1:10000, 1] -0.0698 -0.0469 -0.0384 0.2343 -0.0514 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr43"
..- attr(*, "scaled:center")= Named num -0.0106
.. ..- attr(*, "names")= chr "Attr43"
..- attr(*, "scaled:scale")= Named num 0.125
.. ..- attr(*, "names")= chr "Attr43"
$ Attr44: num [1:10000, 1] 0.01443 0.00534 -0.10302 0.48595 -0.01643 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr44"
..- attr(*, "scaled:center")= Named num -0.01
.. ..- attr(*, "names")= chr "Attr44"
..- attr(*, "scaled:scale")= Named num 0.0633
.. ..- attr(*, "names")= chr "Attr44"
$ Attr45: num [1:10000, 1] 0.01656 0.00604 0.00712 0.00723 0.00899 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr45"
..- attr(*, "scaled:center")= Named num -0.00614
.. ..- attr(*, "names")= chr "Attr45"
..- attr(*, "scaled:scale")= Named num 1.41
.. ..- attr(*, "names")= chr "Attr45"
$ Attr46: num [1:10000, 1] 0.1624 -0.0187 -0.2677 -0.0799 0.0526 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr46"
..- attr(*, "scaled:center")= Named num 0.00311
.. ..- attr(*, "names")= chr "Attr46"
..- attr(*, "scaled:scale")= Named num 0.889
.. ..- attr(*, "names")= chr "Attr46"
$ Attr47: num [1:10000, 1] -0.0444 -0.03616 -0.00986 -0.01422 -0.03158 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr47"
..- attr(*, "scaled:center")= Named num -0.00467
.. ..- attr(*, "names")= chr "Attr47"
..- attr(*, "scaled:scale")= Named num 0.84
.. ..- attr(*, "names")= chr "Attr47"
$ Attr48: num [1:10000, 1] -0.12 -0.6645 0.0772 0.0729 0.5276 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr48"
..- attr(*, "scaled:center")= Named num -0.00641
.. ..- attr(*, "names")= chr "Attr48"
..- attr(*, "scaled:scale")= Named num 1.18
.. ..- attr(*, "names")= chr "Attr48"
$ Attr49: num [1:10000, 1] 0.00536 -0.02399 0.03015 0.05771 0.06214 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr49"
..- attr(*, "scaled:center")= Named num -0.000638
.. ..- attr(*, "names")= chr "Attr49"
..- attr(*, "scaled:scale")= Named num 1.02
.. ..- attr(*, "names")= chr "Attr49"
$ Attr50: num [1:10000, 1] -0.195 0.188 -0.474 -0.521 0.345 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr50"
..- attr(*, "scaled:center")= Named num 0.00098
.. ..- attr(*, "names")= chr "Attr50"
..- attr(*, "scaled:scale")= Named num 0.991
.. ..- attr(*, "names")= chr "Attr50"
$ Attr51: num [1:10000, 1] -0.9752 -0.0734 0.3761 -0.2531 -0.1982 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr51"
..- attr(*, "scaled:center")= Named num -0.00185
.. ..- attr(*, "names")= chr "Attr51"
..- attr(*, "scaled:scale")= Named num 1.05
.. ..- attr(*, "names")= chr "Attr51"
$ Attr52: num [1:10000, 1] -0.0146 -0.037 -0.0195 0.0353 -0.034 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr52"
..- attr(*, "scaled:center")= Named num -0.00729
.. ..- attr(*, "names")= chr "Attr52"
..- attr(*, "scaled:scale")= Named num 0.412
.. ..- attr(*, "names")= chr "Attr52"
$ Attr53: num [1:10000, 1] -0.0256 0.015 -0.0676 -0.0791 0.0401 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr53"
..- attr(*, "scaled:center")= Named num -0.00795
.. ..- attr(*, "names")= chr "Attr53"
..- attr(*, "scaled:scale")= Named num 0.328
.. ..- attr(*, "names")= chr "Attr53"
$ Attr54: num [1:10000, 1] -0.0232 -0.0175 -0.0255 -0.026 -0.0118 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr54"
..- attr(*, "scaled:center")= Named num -0.00311
.. ..- attr(*, "names")= chr "Attr54"
..- attr(*, "scaled:scale")= Named num 0.648
.. ..- attr(*, "names")= chr "Attr54"
$ Attr55: num [1:10000, 1] -0.1243 -0.1296 -0.1398 -0.0834 -0.0829 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr55"
..- attr(*, "scaled:center")= Named num -0.00881
.. ..- attr(*, "names")= chr "Attr55"
..- attr(*, "scaled:scale")= Named num 0.819
.. ..- attr(*, "names")= chr "Attr55"
$ Attr56: num [1:10000, 1] 0.2627 -0.0755 0.0585 0.0506 0.0671 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr56"
..- attr(*, "scaled:center")= Named num 0.0098
.. ..- attr(*, "names")= chr "Attr56"
..- attr(*, "scaled:scale")= Named num 0.0174
.. ..- attr(*, "names")= chr "Attr56"
$ Attr57: num [1:10000, 1] 0.000347 -0.018914 0.002186 0.000244 0.027949 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr57"
..- attr(*, "scaled:center")= Named num 0.00521
.. ..- attr(*, "names")= chr "Attr57"
..- attr(*, "scaled:scale")= Named num 0.719
.. ..- attr(*, "names")= chr "Attr57"
$ Attr58: num [1:10000, 1] -0.1681 0.0415 0.012 -0.0417 -0.05 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr58"
..- attr(*, "scaled:center")= Named num -0.00975
.. ..- attr(*, "names")= chr "Attr58"
..- attr(*, "scaled:scale")= Named num 0.0261
.. ..- attr(*, "names")= chr "Attr58"
$ Attr59: num [1:10000, 1] -0.03911 -0.04375 -0.01127 0.00864 -0.04256 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr59"
..- attr(*, "scaled:center")= Named num -0.00266
.. ..- attr(*, "names")= chr "Attr59"
..- attr(*, "scaled:scale")= Named num 0.467
.. ..- attr(*, "names")= chr "Attr59"
$ Attr60: num [1:10000, 1] 0.051 -0.0304 -0.0383 -0.0378 -0.0323 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr60"
..- attr(*, "scaled:center")= Named num 0.00455
.. ..- attr(*, "names")= chr "Attr60"
..- attr(*, "scaled:scale")= Named num 1.25
.. ..- attr(*, "names")= chr "Attr60"
$ Attr61: num [1:10000, 1] -0.19537 -0.18796 0.00462 -0.31153 -0.16726 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr61"
..- attr(*, "scaled:center")= Named num 0.0143
.. ..- attr(*, "names")= chr "Attr61"
..- attr(*, "scaled:scale")= Named num 1.17
.. ..- attr(*, "names")= chr "Attr61"
$ Attr62: num [1:10000, 1] -0.0254 -0.03 -0.0176 0.0355 -0.0316 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr62"
..- attr(*, "scaled:center")= Named num -0.00686
.. ..- attr(*, "names")= chr "Attr62"
..- attr(*, "scaled:scale")= Named num 0.277
.. ..- attr(*, "names")= chr "Attr62"
$ Attr63: num [1:10000, 1] -0.1746 -0.0841 -0.2801 -0.516 -0.0436 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr63"
..- attr(*, "scaled:center")= Named num 0.0208
.. ..- attr(*, "names")= chr "Attr63"
..- attr(*, "scaled:scale")= Named num 1.12
.. ..- attr(*, "names")= chr "Attr63"
$ Attr64: num [1:10000, 1] -0.046 -0.025 -0.0318 -0.046 -0.0212 ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:10000] "1" "2" "3" "4" ...
.. ..$ : chr "Attr64"
..- attr(*, "scaled:center")= Named num -0.00398
.. ..- attr(*, "names")= chr "Attr64"
..- attr(*, "scaled:scale")= Named num 0.931
.. ..- attr(*, "names")= chr "Attr64"
$ class : int 0 0 0 0 0 0 0 0 0 0 ...
Make “class” to be factor type and create x and y variables
bankruptcy_data$class <- factor(bankruptcy_data$class)
# preparing the inputs
x <- model.matrix(class ~ . - 1, data = bankruptcy_data)
y <- bankruptcy_data$class
dim(bankruptcy_data)
[1] 10000 65
Take smaller dataset sample for development purpose
bankruptcy_small <- bankruptcy_data %>% group_by(class) %>% sample_frac(.08)
bankruptcy_small
table(bankruptcy_small$class)
0 1
784 16
bankruptcy_train <- bankruptcy_small %>% group_by(class) %>% sample_frac(.70)
bankruptcy_train
table(bankruptcy_train$class)
0 1
549 11
bankruptcy_test <- anti_join(bankruptcy_small %>% group_by(class) %>% sample_frac(.90), bankruptcy_train)
Joining, by = c("Attr1", "Attr2", "Attr3", "Attr4", "Attr5", "Attr6", "Attr7", "Attr8", "Attr9", "Attr10", "Attr11", "Attr12", "Attr13", "Attr14", "Attr15", "Attr16", "Attr17", "Attr18", "Attr19", "Attr20", "Attr21", "Attr22", "Attr23", "Attr24", "Attr25", "Attr26", "Attr27", "Attr28", "Attr29", "Attr30", "Attr31", "Attr32", "Attr33", "Attr34", "Attr35", "Attr36", "Attr37", "Attr38", "Attr39", "Attr40", "Attr41", "Attr42", "Attr43", "Attr44", "Attr45", "Attr46", "Attr47", "Attr48", "Attr49", "Attr50", "Attr51", "Attr52", "Attr53", "Attr54", "Attr55", "Attr56", "Attr57", "Attr58", "Attr59", "Attr60", "Attr61", "Attr62", "Attr63", "Attr64", "class")
bankruptcy_test
table(bankruptcy_test$class)
0 1
205 5
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CnNldC5zZWVkKDQyKQpgYGAKCgpgYGB7cn0KbGlicmFyeShkcGx5cikKYGBgCgoKYGBge3J9CnNldHdkKCJ+L1Byb2plY3RzL2NvbXBhbmllcy1iYW5rcnVwdGN5LWZvcmVjYXN0L3NyYyIpCmBgYAoKIyBSZWFkIGFsbCB0aGUgZGF0YQpgYGB7cn0KYmFua3J1cHRjeV9kYXRhIDwtIHJlYWQuY3N2KCcuLi9kYXRhL2JhbmtydXB0Y3lfVHJhaW4uY3N2JykKaGVhZChiYW5rcnVwdGN5X2RhdGEpCmBgYAoKYGBge3J9CnN1bW1hcnkoYmFua3J1cHRjeV9kYXRhKQpgYGAKCgojIFByZS1wcm9jZXNzIDogU2NhbGUgdGhlIGRhdGEKCmBgYHtyfQpuYS5vbWl0KGJhbmtydXB0Y3lfZGF0YSkKYGBgCgoKYGBge3J9CiMgcmVtb3ZpbmcgdGhvc2Ugb2JzZXJ2YXRpb24gcm93cyB3aXRoIDAgaW4gYW55IG9mIHRoZSB2YXJpYWJsZXMKZm9yIChpIGluIDE6NjQpIHsKICAgICAgYmFua3J1cHRjeV9kYXRhIDwtIGJhbmtydXB0Y3lfZGF0YVt3aGljaChiYW5rcnVwdGN5X2RhdGFbLCBpXSAhPSAwKSwgXQp9CmBgYAoKYGBge3J9CmRpbShiYW5rcnVwdGN5X2RhdGEpCmBgYAoKCmBgYHtyfQoKIyBzY2FsZSB0aGUgY292YXJpYXRlcyBmb3IgZWFzaWVyIGNvbXBhcmlzb24gb2YgY29lZmZpY2llbnQgcG9zdGVyaW9ycwoKZm9yIChpIGluIDE6NjQpIHsKICAgICAgYmFua3J1cHRjeV9kYXRhW2ldIDwtIHNjYWxlKGJhbmtydXB0Y3lfZGF0YVtpXSkKfQoKYGBgCgoKYGBge3J9CmRpbShiYW5rcnVwdGN5X2RhdGEpCmBgYAoKCmBgYHtyfQpzdHIoYmFua3J1cHRjeV9kYXRhKQpgYGAKCiMjIE1ha2UgImNsYXNzIiB0byBiZSBmYWN0b3IgdHlwZSBhbmQgY3JlYXRlIHggYW5kIHkgdmFyaWFibGVzCgpgYGB7cn0KYmFua3J1cHRjeV9kYXRhJGNsYXNzIDwtIGZhY3RvcihiYW5rcnVwdGN5X2RhdGEkY2xhc3MpCiMgcHJlcGFyaW5nIHRoZSBpbnB1dHMKeCA8LSBtb2RlbC5tYXRyaXgoY2xhc3MgfiAuIC0gMSwgZGF0YSA9IGJhbmtydXB0Y3lfZGF0YSkKeSA8LSBiYW5rcnVwdGN5X2RhdGEkY2xhc3MKYGBgCgpgYGB7cn0KZGltKGJhbmtydXB0Y3lfZGF0YSkKYGBgCgoKIyBUYWtlIHNtYWxsZXIgZGF0YXNldCBzYW1wbGUgZm9yIGRldmVsb3BtZW50IHB1cnBvc2UKCmBgYHtyfQpiYW5rcnVwdGN5X3NtYWxsIDwtIGJhbmtydXB0Y3lfZGF0YSAlPiUgZ3JvdXBfYnkoY2xhc3MpICU+JSBzYW1wbGVfZnJhYyguMDgpCmJhbmtydXB0Y3lfc21hbGwKYGBgCgpgYGB7cn0KdGFibGUoYmFua3J1cHRjeV9zbWFsbCRjbGFzcykKYGBgCgpgYGB7cn0KYmFua3J1cHRjeV90cmFpbiA8LSBiYW5rcnVwdGN5X3NtYWxsICU+JSBncm91cF9ieShjbGFzcykgJT4lIHNhbXBsZV9mcmFjKC43MCkKYmFua3J1cHRjeV90cmFpbgpgYGAKYGBge3J9CnRhYmxlKGJhbmtydXB0Y3lfdHJhaW4kY2xhc3MpCmBgYAoKCgpgYGB7cn0KYmFua3J1cHRjeV90ZXN0IDwtIGFudGlfam9pbihiYW5rcnVwdGN5X3NtYWxsICU+JSBncm91cF9ieShjbGFzcykgJT4lIHNhbXBsZV9mcmFjKC45MCksIGJhbmtydXB0Y3lfdHJhaW4pCmJhbmtydXB0Y3lfdGVzdApgYGAKCmBgYHtyfQp0YWJsZShiYW5rcnVwdGN5X3Rlc3QkY2xhc3MpCmBgYAoKIyBHZXQgZGltZW5zaW9ucwpgYGB7cn0KCm49ZGltKGJhbmtydXB0Y3lfdHJhaW4pWzFdCnA9ZGltKGJhbmtydXB0Y3lfdHJhaW4pWzJdCiNzdHIoYmFua3J1cHRjeV90cmFpbikKCmBgYAoKCmBgYHtyfQpkaW0oYmFua3J1cHRjeV90cmFpbikKYGBgCgpgYGB7cn0KbmFtZXMoYmFua3J1cHRjeV90cmFpbikKYGBgCgoKYGBge3J9CnR5cGVvZihiYW5rcnVwdGN5X3RyYWluKQpgYGAKCgojIEEgQmF5ZXNpYW4gbG9naXN0aWMgcmVncmVzc2lvbiBtb2RlbCAKCmBgYHtyfQp0X3ByaW9yIDwtIHN0dWRlbnRfdChkZiA9IDcsIGxvY2F0aW9uID0gMCwgc2NhbGUgPSAyLjUpCnBvc3QxIDwtIHN0YW5fZ2xtKGNsYXNzIH4gLiAsIGRhdGEgPSBiYW5rcnVwdGN5X3NtYWxsLAogICAgICAgICAgICAgICAgIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSwgCiAgICAgICAgICAgICAgICAgcHJpb3IgPSB0X3ByaW9yLCBwcmlvcl9pbnRlcmNlcHQgPSB0X3ByaW9yLAogICAgICAgICAgICAgICAgIHNlZWQgPSA0MikKYGBgCgo=